home *** CD-ROM | disk | FTP | other *** search
/ Perl Multimedia Cyber Classroom / PERL Multimedia Cyber Classroom (Prentice Hall)(1998).ISO / perlbyex / code.jar / 08ex003.jar / code / ch08 / 08ex003 / 08ex003.pl next >
Text File  |  1998-04-01  |  163b  |  11 lines
  1. $first="Steve";
  2. $last="Blenheim";
  3. while(<>){
  4. &greeting ( $first, $last) if /[Ss]teve/;
  5. }
  6.  
  7. sub greeting{
  8. print "Welcome to the club, $_[0] $_[1]\n";
  9. }
  10.   
  11.